#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-07 9:09
# description: 测试<STDIN>标准输入及chomp函数用法

use v5.10;
use utf8;

# 读取输入
$name = <STDIN>;
if ($name eq "\n") {
    print "你没有输入数据\n";
} else {
    chomp($name);
    print "$name, 您好！欢迎来到perl世界\n";
}
